/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 12 - 1996 / 12.04 Apr 96 / ThreadingAppleEvents.sit / ThreadingAppleEvents / Grant's CGI Code 1.0b13 / Util / main.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 6d 61 69 6e 2e 63 | 00 00 00 00 00 00 00 00 |..main.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 00 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 1b e6 00 | 00 01 d2 ad 2e 17 12 ad |........|........|
|00000060| 2e 17 12 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 36 7e 00 00 |........|....6~..|
|00000080| 2f 2a 2a 2a 2a 2a 0d 20 | 2a 0d 20 2a 09 47 72 61 |/*****. |*. *.Gra|
|00000090| 6e 74 27 73 20 43 47 49 | 20 53 68 65 6c 6c 20 28 |nt's CGI| Shell (|
|000000a0| 43 6f 6d 6d 6f 6e 20 47 | 72 61 6e 74 20 49 6e 74 |Common G|rant Int|
|000000b0| 65 72 66 61 63 65 20 3a | 2d 29 0d 20 2a 09 09 68 |erface :|-). *..h|
|000000c0| 74 74 70 3a 2f 2f 61 72 | 70 70 31 2e 63 61 72 6c |ttp://ar|pp1.carl|
|000000d0| 65 74 6f 6e 2e 63 61 2f | 67 72 61 6e 74 2f 6d 61 |eton.ca/|grant/ma|
|000000e0| 63 2f 67 72 61 6e 74 73 | 63 67 69 2f 0d 20 2a 0d |c/grants|cgi/. *.|
|000000f0| 20 2a 09 6d 61 69 6e 2e | 63 0d 20 2a 0d 20 2a 09 | *.main.|c. *. *.|
|00000100| 62 79 20 47 72 61 6e 74 | 20 4e 65 75 66 65 6c 64 |by Grant| Neufeld|
|00000110| 0d 20 2a 0d 20 2a 09 43 | 6f 70 79 72 69 67 68 74 |. *. *.C|opyright|
|00000120| 20 a9 31 39 39 35 20 62 | 79 20 47 72 61 6e 74 20 | .1995 b|y Grant |
|00000130| 4e 65 75 66 65 6c 64 0d | 20 2a 0d 20 2a 09 68 74 |Neufeld.| *. *.ht|
|00000140| 74 70 3a 2f 2f 61 72 70 | 70 31 2e 63 61 72 6c 65 |tp://arp|p1.carle|
|00000150| 74 6f 6e 2e 63 61 2f 67 | 72 61 6e 74 2f 0d 20 2a |ton.ca/g|rant/. *|
|00000160| 09 67 6e 65 75 66 65 6c | 64 40 63 63 73 2e 63 61 |.gneufel|d@ccs.ca|
|00000170| 72 6c 65 74 6f 6e 2e 63 | 61 0d 20 2a 09 67 72 61 |rleton.c|a. *.gra|
|00000180| 6e 74 40 61 63 6d 2e 6f | 72 67 0d 20 2a 0d 20 2a |nt@acm.o|rg. *. *|
|00000190| 09 54 68 69 73 20 73 6f | 75 72 63 65 20 6d 61 79 |.This so|urce may|
|000001a0| 20 62 65 20 66 72 65 65 | 6c 79 20 75 73 65 64 20 | be free|ly used |
|000001b0| 61 73 20 6c 6f 6e 67 20 | 61 73 20 74 68 65 20 63 |as long |as the c|
|000001c0| 6f 70 79 72 69 67 68 74 | 20 6e 6f 74 69 63 65 20 |opyright| notice |
|000001d0| 69 73 20 6b 65 70 74 20 | 69 6e 20 74 68 65 20 73 |is kept |in the s|
|000001e0| 6f 75 72 63 65 2e 0d 20 | 2a 09 49 20 61 73 6b 20 |ource.. |*.I ask |
|000001f0| 74 68 61 74 20 79 6f 75 | 20 6c 65 74 20 6d 65 20 |that you| let me |
|00000200| 6b 6e 6f 77 20 6f 66 20 | 61 6e 79 20 65 6e 68 61 |know of |any enha|
|00000210| 6e 63 65 6d 65 6e 74 73 | 20 28 72 65 61 64 3a 20 |ncements| (read: |
|00000220| 62 75 67 20 66 69 78 65 | 73 29 20 74 6f 20 74 68 |bug fixe|s) to th|
|00000230| 69 73 20 63 6f 64 65 2e | 0d 20 2a 09 49 20 77 6f |is code.|. *.I wo|
|00000240| 75 6c 64 20 61 6c 73 6f | 20 6c 69 6b 65 20 63 6f |uld also| like co|
|00000250| 70 69 65 73 20 6f 66 20 | 28 6f 72 20 64 69 73 63 |pies of |(or disc|
|00000260| 6f 75 6e 74 73 20 6f 6e | 29 20 61 6e 79 74 68 69 |ounts on|) anythi|
|00000270| 6e 67 20 79 6f 75 20 70 | 72 6f 64 75 63 65 20 75 |ng you p|roduce u|
|00000280| 73 69 6e 67 20 74 68 69 | 73 20 63 6f 64 65 2c 20 |sing thi|s code, |
|00000290| 70 6c 65 61 73 65 2e 0d | 20 2a 0d 20 2a 2a 2a 2a |please..| *. ****|
|000002a0| 2a 2f 0d 0d 23 64 65 66 | 69 6e 65 20 5f 5f 4d 61 |*/..#def|ine __Ma|
|000002b0| 69 6e 53 65 67 6d 65 6e | 74 5f 5f 09 31 0d 0d 23 |inSegmen|t__.1..#|
|000002c0| 69 6e 63 6c 75 64 65 20 | 22 4d 79 43 6f 6e 66 69 |include |"MyConfi|
|000002d0| 67 75 72 61 74 69 6f 6e | 2e 68 22 0d 0d 23 69 6e |guration|.h"..#in|
|000002e0| 63 6c 75 64 65 20 3c 73 | 74 72 69 6e 67 2e 68 3e |clude <s|tring.h>|
|000002f0| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 54 68 72 65 61 |.#includ|e <Threa|
|00000300| 64 73 2e 68 3e 0d 23 69 | 66 20 5f 5f 70 72 6f 66 |ds.h>.#i|f __prof|
|00000310| 69 6c 65 5f 5f 20 26 26 | 20 5f 5f 4d 57 45 52 4b |ile__ &&| __MWERK|
|00000320| 53 5f 5f 0d 23 69 6e 63 | 6c 75 64 65 20 3c 50 72 |S__.#inc|lude <Pr|
|00000330| 6f 66 69 6c 65 72 2e 68 | 3e 0d 23 65 6e 64 69 66 |ofiler.h|>.#endif|
|00000340| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 63 6f 6d 70 |..#inclu|de "comp|
|00000350| 69 6c 65 72 5f 73 74 75 | 66 66 2e 68 22 0d 23 69 |iler_stu|ff.h".#i|
|00000360| 6e 63 6c 75 64 65 20 22 | 63 6f 6e 73 74 61 6e 74 |nclude "|constant|
|00000370| 73 2e 68 22 0d 23 69 6e | 63 6c 75 64 65 20 22 67 |s.h".#in|clude "g|
|00000380| 6c 6f 62 61 6c 73 2e 68 | 22 0d 0d 23 69 6e 63 6c |lobals.h|"..#incl|
|00000390| 75 64 65 20 22 44 65 62 | 75 67 55 74 69 6c 2e 68 |ude "Deb|ugUtil.h|
|000003a0| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 45 72 72 6f |".#inclu|de "Erro|
|000003b0| 72 55 74 69 6c 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |rUtil.h"|.#includ|
|000003c0| 65 20 22 45 76 65 6e 74 | 55 74 69 6c 2e 68 22 0d |e "Event|Util.h".|
|000003d0| 23 69 6e 63 6c 75 64 65 | 20 22 4d 65 6d 6f 72 79 |#include| "Memory|
|000003e0| 55 74 69 6c 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |Util.h".|#include|
|000003f0| 20 22 4d 65 6e 75 46 75 | 6e 63 2e 68 22 0d 23 69 | "MenuFu|nc.h".#i|
|00000400| 6e 63 6c 75 64 65 20 22 | 51 75 69 74 2e 68 22 0d |nclude "|Quit.h".|
|00000410| 23 69 6e 63 6c 75 64 65 | 20 22 53 74 61 72 74 75 |#include| "Startu|
|00000420| 70 2e 68 22 0d 0d 0d 2f | 2a 2a 2a 20 20 4c 4f 43 |p.h".../|***  LOC|
|00000430| 41 4c 20 56 41 52 49 41 | 42 4c 45 53 20 20 2a 2a |AL VARIA|BLES  **|
|00000440| 2a 2f 0d 0d 73 74 61 74 | 69 63 09 52 67 6e 48 61 |*/..stat|ic.RgnHa|
|00000450| 6e 64 6c 65 09 76 54 68 | 65 4d 6f 75 73 65 52 67 |ndle.vTh|eMouseRg|
|00000460| 6e 3b 0d 09 0d 0d 2f 2a | 2a 2a 20 20 4c 4f 43 41 |n;..../*|**  LOCA|
|00000470| 4c 20 50 52 4f 54 4f 54 | 59 50 45 53 20 2a 2a 2a |L PROTOT|YPES ***|
|00000480| 2f 0d 0d 73 74 61 74 69 | 63 09 76 6f 69 64 09 6d |/..stati|c.void.m|
|00000490| 61 69 6e 45 76 65 6e 74 | 4c 6f 6f 70 09 09 28 20 |ainEvent|Loop..( |
|000004a0| 76 6f 69 64 20 29 3b 0d | 73 74 61 74 69 63 09 76 |void );.|static.v|
|000004b0| 6f 69 64 09 73 74 61 72 | 74 75 70 54 6f 6f 6c 62 |oid.star|tupToolb|
|000004c0| 6f 78 09 09 28 20 76 6f | 69 64 20 29 3b 0d 73 74 |ox..( vo|id );.st|
|000004d0| 61 74 69 63 09 42 6f 6f | 6c 65 61 6e 09 69 6e 69 |atic.Boo|lean.ini|
|000004e0| 74 41 70 70 4d 65 6d 6f | 72 79 09 09 28 20 76 6f |tAppMemo|ry..( vo|
|000004f0| 69 64 20 29 3b 0d 73 74 | 61 74 69 63 09 4f 53 45 |id );.st|atic.OSE|
|00000500| 72 72 09 69 6e 69 74 53 | 74 61 63 6b 47 72 6f 77 |rr.initS|tackGrow|
|00000510| 09 09 28 20 53 69 7a 65 | 20 29 3b 0d 09 09 0d 0d |..( Size| );.....|
|00000520| 2f 2a 2a 2a 20 20 46 55 | 4e 43 54 49 4f 4e 53 20 |/***  FU|NCTIONS |
|00000530| 20 2a 2a 2a 2f 0d 0d 2f | 2a 20 41 70 70 6c 69 63 | ***/../|* Applic|
|00000540| 61 74 69 6f 6e 20 65 6e | 74 72 79 20 70 6f 69 6e |ation en|try poin|
|00000550| 74 2e 20 2a 2f 0d 76 6f | 69 64 0d 6d 61 69 6e 20 |t. */.vo|id.main |
|00000560| 28 20 76 6f 69 64 20 29 | 0d 7b 0d 09 2f 2a 20 41 |( void )|.{../* A|
|00000570| 70 70 6c 69 63 61 74 69 | 6f 6e 20 69 73 20 6e 6f |pplicati|on is no|
|00000580| 74 20 73 65 74 20 74 6f | 20 71 75 69 74 20 2a 2f |t set to| quit */|
|00000590| 0d 09 67 51 75 69 74 20 | 3d 20 66 61 6c 73 65 3b |..gQuit |= false;|
|000005a0| 0d 09 0d 09 2f 2a 20 49 | 6e 63 6c 75 64 65 64 20 |..../* I|ncluded |
|000005b0| 68 65 72 65 20 62 65 63 | 61 75 73 65 20 6f 66 20 |here bec|ause of |
|000005c0| 49 6e 69 74 57 69 6e 64 | 6f 77 73 28 29 20 61 6c |InitWind|ows() al|
|000005d0| 6c 6f 63 61 74 69 6f 6e | 20 6f 66 20 6e 6f 6e 2d |location| of non-|
|000005e0| 72 65 6c 6f 63 61 74 61 | 62 6c 65 20 62 6c 6f 63 |relocata|ble bloc|
|000005f0| 6b 73 2e 0d 09 09 54 68 | 69 73 20 6e 65 65 64 73 |ks....Th|is needs|
|00000600| 20 74 6f 20 62 65 20 64 | 6f 6e 65 20 62 65 66 6f | to be d|one befo|
|00000610| 72 65 20 61 6e 79 20 6f | 74 68 65 72 20 63 6f 64 |re any o|ther cod|
|00000620| 65 20 73 65 67 6d 65 6e | 74 73 20 61 72 65 20 6c |e segmen|ts are l|
|00000630| 6f 61 64 65 64 2e 0d 09 | 09 49 4d 3a 50 72 6f 63 |oaded...|.IM:Proc|
|00000640| 65 73 73 65 73 20 37 2d | 35 20 2a 2f 0d 09 2f 2a |esses 7-|5 */../*|
|00000650| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 73 74 61 6e | initial|ize stan|
|00000660| 64 61 72 64 20 74 6f 6f | 6c 62 6f 78 20 6d 61 6e |dard too|lbox man|
|00000670| 61 67 65 72 73 20 2a 2f | 0d 09 73 74 61 72 74 75 |agers */|..startu|
|00000680| 70 54 6f 6f 6c 62 6f 78 | 20 28 29 3b 0d 09 0d 09 |pToolbox| ();....|
|00000690| 2f 2a 20 49 6e 63 6c 75 | 64 65 64 20 68 65 72 65 |/* Inclu|ded here|
|000006a0| 20 62 65 63 61 75 73 65 | 20 6f 66 20 4d 6f 72 65 | because| of More|
|000006b0| 4d 61 73 74 65 72 73 28 | 29 20 61 6c 6c 6f 63 61 |Masters(|) alloca|
|000006c0| 74 69 6f 6e 20 6f 66 20 | 6e 6f 6e 2d 72 65 6c 6f |tion of |non-relo|
|000006d0| 63 61 74 61 62 6c 65 20 | 62 6c 6f 63 6b 73 2e 0d |catable |blocks..|
|000006e0| 09 09 54 68 69 73 20 6e | 65 65 64 73 20 74 6f 20 |..This n|eeds to |
|000006f0| 62 65 20 64 6f 6e 65 20 | 62 65 66 6f 72 65 20 61 |be done |before a|
|00000700| 6e 79 20 6f 74 68 65 72 | 20 63 6f 64 65 20 73 65 |ny other| code se|
|00000710| 67 6d 65 6e 74 73 20 61 | 72 65 20 6c 6f 61 64 65 |gments a|re loade|
|00000720| 64 2e 0d 09 09 49 4d 3a | 50 72 6f 63 65 73 73 65 |d....IM:|Processe|
|00000730| 73 20 37 2d 35 20 2a 2f | 0d 09 69 66 20 28 20 21 |s 7-5 */|..if ( !|
|00000740| 28 20 69 6e 69 74 41 70 | 70 4d 65 6d 6f 72 79 20 |( initAp|pMemory |
|00000750| 28 29 20 29 20 29 0d 09 | 7b 0d 09 09 2f 2a 20 69 |() ) )..|{.../* i|
|00000760| 6e 66 6f 72 6d 20 75 73 | 65 72 20 6f 66 20 69 6e |nform us|er of in|
|00000770| 73 75 66 66 69 63 69 65 | 6e 74 20 6d 65 6d 6f 72 |sufficie|nt memor|
|00000780| 79 20 2a 2f 0d 09 09 45 | 72 72 6f 72 53 74 61 72 |y */...E|rrorStar|
|00000790| 74 75 70 09 28 20 6b 65 | 72 72 53 74 61 72 74 75 |tup.( ke|rrStartu|
|000007a0| 70 4d 65 6d 6f 72 79 20 | 29 3b 0d 09 09 45 78 69 |pMemory |);...Exi|
|000007b0| 74 54 6f 53 68 65 6c 6c | 09 09 28 29 3b 0d 09 7d |tToShell|..();..}|
|000007c0| 0d 09 0d 09 23 69 66 20 | 5f 5f 70 72 6f 66 69 6c |....#if |__profil|
|000007d0| 65 5f 5f 20 26 26 20 5f | 5f 4d 57 45 52 4b 53 5f |e__ && _|_MWERKS_|
|000007e0| 5f 0d 09 67 50 72 6f 66 | 69 6c 65 4f 6e 20 3d 20 |_..gProf|ileOn = |
|000007f0| 21 28 20 50 72 6f 66 69 | 6c 65 72 49 6e 69 74 20 |!( Profi|lerInit |
|00000800| 28 20 63 6f 6c 6c 65 63 | 74 44 65 74 61 69 6c 65 |( collec|tDetaile|
|00000810| 64 2c 20 62 65 73 74 54 | 69 6d 65 42 61 73 65 2c |d, bestT|imeBase,|
|00000820| 20 32 30 2c 20 35 20 29 | 20 29 3b 0d 09 23 65 6e | 20, 5 )| );..#en|
|00000830| 64 69 66 0d 09 0d 09 53 | 74 61 72 74 75 70 41 70 |dif....S|tartupAp|
|00000840| 70 6c 69 63 61 74 69 6f | 6e 09 28 29 3b 0d 09 0d |plicatio|n.();...|
|00000850| 09 2f 2a 20 6d 61 69 6e | 20 6c 6f 6f 70 20 66 6f |./* main| loop fo|
|00000860| 72 20 68 61 6e 64 6c 69 | 6e 67 20 73 79 73 74 65 |r handli|ng syste|
|00000870| 6d 20 61 6e 64 20 75 73 | 65 72 20 65 76 65 6e 74 |m and us|er event|
|00000880| 73 20 2a 2f 0d 09 6d 61 | 69 6e 45 76 65 6e 74 4c |s */..ma|inEventL|
|00000890| 6f 6f 70 20 28 29 3b 0d | 09 0d 09 23 69 66 20 5f |oop ();.|...#if _|
|000008a0| 5f 70 72 6f 66 69 6c 65 | 5f 5f 20 26 26 20 5f 5f |_profile|__ && __|
|000008b0| 4d 57 45 52 4b 53 5f 5f | 0d 09 69 66 20 28 20 67 |MWERKS__|..if ( g|
|000008c0| 50 72 6f 66 69 6c 65 4f | 6e 20 29 0d 09 7b 0d 09 |ProfileO|n )..{..|
|000008d0| 09 50 72 6f 66 69 6c 65 | 72 44 75 6d 70 28 22 5c |.Profile|rDump("\|
|000008e0| 70 22 20 6b 50 72 6f 66 | 69 6c 65 4e 61 6d 65 53 |p" kProf|ileNameS|
|000008f0| 74 72 20 22 2d 22 20 6b | 50 72 6f 63 65 73 73 6f |tr "-" k|Processo|
|00000900| 72 53 74 72 69 6e 67 20 | 22 2e 70 72 6f 66 22 29 |rString |".prof")|
|00000910| 3b 0d 09 09 50 72 6f 66 | 69 6c 65 72 54 65 72 6d |;...Prof|ilerTerm|
|00000920| 28 29 3b 0d 09 7d 0d 09 | 23 65 6e 64 69 66 0d 09 |();..}..|#endif..|
|00000930| 0d 09 45 78 69 74 54 6f | 53 68 65 6c 6c 20 28 29 |..ExitTo|Shell ()|
|00000940| 3b 0d 7d 20 2f 2a 20 6d | 61 69 6e 20 2a 2f 0d 0d |;.} /* m|ain */..|
|00000950| 0d 2f 2a 20 6d 61 69 6e | 20 6c 6f 6f 70 20 66 6f |./* main| loop fo|
|00000960| 72 20 68 61 6e 64 6c 69 | 6e 67 20 73 79 73 74 65 |r handli|ng syste|
|00000970| 6d 20 61 6e 64 20 75 73 | 65 72 20 65 76 65 6e 74 |m and us|er event|
|00000980| 73 2e 0d 09 43 6f 6e 74 | 69 6e 75 6f 75 73 6c 79 |s...Cont|inuously|
|00000990| 20 6c 6f 6f 70 20 75 6e | 74 69 6c 20 61 70 70 6c | loop un|til appl|
|000009a0| 69 63 61 74 69 6f 6e 20 | 69 73 20 73 65 74 20 74 |ication |is set t|
|000009b0| 6f 20 71 75 69 74 2e 20 | 2a 2f 0d 73 74 61 74 69 |o quit. |*/.stati|
|000009c0| 63 20 76 6f 69 64 0d 6d | 61 69 6e 45 76 65 6e 74 |c void.m|ainEvent|
|000009d0| 4c 6f 6f 70 20 28 20 76 | 6f 69 64 20 29 0d 7b 0d |Loop ( v|oid ).{.|
|000009e0| 09 23 69 66 20 21 28 6b | 43 6f 6d 70 69 6c 65 57 |.#if !(k|CompileW|
|000009f0| 69 74 68 51 75 69 74 4f | 6e 4c 6f 77 4d 65 6d 6f |ithQuitO|nLowMemo|
|00000a00| 72 79 29 0d 09 4f 53 45 | 72 72 09 09 09 74 68 65 |ry)..OSE|rr...the|
|00000a10| 45 72 72 3b 0d 09 23 65 | 6e 64 69 66 0d 09 42 6f |Err;..#e|ndif..Bo|
|00000a20| 6f 6c 65 61 6e 09 09 09 | 65 76 65 6e 74 52 65 73 |olean...|eventRes|
|00000a30| 75 6c 74 3b 0d 09 45 76 | 65 6e 74 52 65 63 6f 72 |ult;..Ev|entRecor|
|00000a40| 64 09 09 65 76 65 6e 74 | 3b 0d 09 73 68 6f 72 74 |d..event|;..short|
|00000a50| 09 09 09 6c 6f 6f 70 43 | 6f 75 6e 74 65 72 3b 0d |...loopC|ounter;.|
|00000a60| 09 0d 09 77 68 69 6c 65 | 20 28 20 21 67 51 75 69 |...while| ( !gQui|
|00000a70| 74 20 29 0d 09 7b 0d 09 | 09 23 69 66 20 21 28 6b |t )..{..|.#if !(k|
|00000a80| 43 6f 6d 70 69 6c 65 57 | 69 74 68 51 75 69 74 4f |CompileW|ithQuitO|
|00000a90| 6e 4c 6f 77 4d 65 6d 6f | 72 79 29 0d 09 09 2f 2a |nLowMemo|ry).../*|
|00000aa0| 20 69 66 20 61 70 70 20 | 64 6f 65 73 6e 27 74 20 | if app |doesn't |
|00000ab0| 71 75 69 74 20 6f 6e 20 | 6c 6f 77 20 6d 65 6d 6f |quit on |low memo|
|00000ac0| 72 79 2c 20 6d 61 79 20 | 6e 65 65 64 20 74 6f 20 |ry, may |need to |
|00000ad0| 72 65 63 6f 76 65 72 20 | 65 6d 72 67 6e 63 79 20 |recover |emrgncy |
|00000ae0| 6d 65 6d 20 2a 2f 0d 09 | 09 2f 2a 20 49 4d 2d 4d |mem */..|./* IM-M|
|00000af0| 65 6d 6f 72 79 3a 20 31 | 2d 34 38 20 2a 2f 0d 09 |emory: 1|-48 */..|
|00000b00| 09 69 66 20 28 20 21 49 | 73 45 6d 65 72 67 65 6e |.if ( !I|sEmergen|
|00000b10| 63 79 4d 65 6d 41 76 61 | 69 6c 28 29 20 29 0d 09 |cyMemAva|il() )..|
|00000b20| 09 7b 0d 09 09 09 74 68 | 65 45 72 72 20 3d 20 52 |.{....th|eErr = R|
|00000b30| 65 63 6f 76 65 72 45 6d | 65 72 67 65 6e 63 79 4d |ecoverEm|ergencyM|
|00000b40| 65 6d 6f 72 79 20 28 29 | 3b 0d 09 09 09 0d 09 09 |emory ()|;.......|
|00000b50| 09 69 66 20 28 20 74 68 | 65 45 72 72 20 21 3d 20 |.if ( th|eErr != |
|00000b60| 6e 6f 45 72 72 20 29 0d | 09 09 09 7b 0d 09 09 09 |noErr ).|...{....|
|00000b70| 09 67 51 75 69 74 20 3d | 20 74 72 75 65 3b 0d 09 |.gQuit =| true;..|
|00000b80| 09 09 7d 0d 09 09 7d 0d | 09 09 23 65 6e 64 69 66 |..}...}.|..#endif|
|00000b90| 0d 09 09 0d 09 09 23 69 | 66 20 6b 43 6f 6d 70 69 |......#i|f kCompi|
|00000ba0| 6c 65 57 69 74 68 54 68 | 72 65 61 64 73 4f 70 74 |leWithTh|readsOpt|
|00000bb0| 69 6f 6e 61 6c 0d 09 09 | 69 66 20 28 20 67 48 61 |ional...|if ( gHa|
|00000bc0| 73 54 68 72 65 61 64 4d | 67 72 20 29 0d 09 09 23 |sThreadM|gr )...#|
|00000bd0| 65 6e 64 69 66 0d 09 09 | 7b 0d 09 09 09 2f 2a 20 |endif...|{..../* |
|00000be0| 59 69 65 6c 64 20 6d 6f | 72 65 20 6f 66 74 65 6e |Yield mo|re often|
|00000bf0| 20 69 66 20 74 68 65 72 | 65 20 61 72 65 20 61 6e | if ther|e are an|
|00000c00| 79 20 73 75 62 2d 74 68 | 72 65 61 64 73 2e 20 54 |y sub-th|reads. T|
|00000c10| 68 65 20 27 6d 6f 72 65 | 20 6f 66 74 65 6e 27 0d |he 'more| often'.|
|00000c20| 09 09 09 09 64 65 70 65 | 6e 64 73 20 6f 6e 20 68 |....depe|nds on h|
|00000c30| 6f 77 20 6d 61 6e 79 20 | 73 75 62 2d 74 68 72 65 |ow many |sub-thre|
|00000c40| 61 64 73 20 74 68 65 72 | 65 20 61 72 65 20 2a 2f |ads ther|e are */|
|00000c50| 0d 09 09 09 69 66 20 28 | 20 67 54 68 72 65 61 64 |....if (| gThread|
|00000c60| 54 6f 74 61 6c 20 3e 20 | 31 20 29 0d 09 09 09 7b |Total > |1 )....{|
|00000c70| 0d 09 09 09 09 66 6f 72 | 20 28 20 6c 6f 6f 70 43 |.....for| ( loopC|
|00000c80| 6f 75 6e 74 65 72 20 3d | 20 6e 69 6c 3b 20 6c 6f |ounter =| nil; lo|
|00000c90| 6f 70 43 6f 75 6e 74 65 | 72 20 3c 20 67 54 68 72 |opCounte|r < gThr|
|00000ca0| 65 61 64 54 6f 74 61 6c | 3b 20 6c 6f 6f 70 43 6f |eadTotal|; loopCo|
|00000cb0| 75 6e 74 65 72 2b 2b 20 | 29 0d 09 09 09 09 7b 0d |unter++ |).....{.|
|00000cc0| 09 09 09 09 09 59 69 65 | 6c 64 54 6f 41 6e 79 54 |.....Yie|ldToAnyT|
|00000cd0| 68 72 65 61 64 20 28 29 | 3b 0d 09 09 09 09 7d 0d |hread ()|;.....}.|
|00000ce0| 09 09 09 7d 0d 09 09 09 | 65 6c 73 65 0d 09 09 09 |...}....|else....|
|00000cf0| 7b 0d 09 09 09 09 2f 2a | 20 6a 75 73 74 20 79 69 |{...../*| just yi|
|00000d00| 65 6c 64 20 6f 6e 63 65 | 20 69 66 20 74 68 65 72 |eld once| if ther|
|00000d10| 65 20 61 72 65 20 6e 6f | 20 73 75 62 2d 74 68 72 |e are no| sub-thr|
|00000d20| 65 61 64 73 2c 20 6f 72 | 20 6f 6e 6c 79 20 6f 6e |eads, or| only on|
|00000d30| 65 20 2a 2f 0d 09 09 09 | 09 59 69 65 6c 64 54 6f |e */....|.YieldTo|
|00000d40| 41 6e 79 54 68 72 65 61 | 64 20 28 29 3b 0d 09 09 |AnyThrea|d ();...|
|00000d50| 09 7d 0d 09 09 7d 0d 09 | 09 0d 09 09 69 66 20 28 |.}...}..|....if (|
|00000d60| 20 21 67 51 75 69 74 20 | 29 0d 09 09 7b 0d 09 09 | !gQuit |)...{...|
|00000d70| 09 2f 2a 20 77 61 69 74 | 20 75 6e 74 69 6c 20 74 |./* wait| until t|
|00000d80| 68 65 20 6e 65 78 74 20 | 65 76 65 6e 74 20 2a 2f |he next |event */|
|00000d90| 0d 09 09 09 65 76 65 6e | 74 52 65 73 75 6c 74 20 |....even|tResult |
|00000da0| 3d 20 57 61 69 74 4e 65 | 78 74 45 76 65 6e 74 20 |= WaitNe|xtEvent |
|00000db0| 28 20 65 76 65 72 79 45 | 76 65 6e 74 2c 20 26 65 |( everyE|vent, &e|
|00000dc0| 76 65 6e 74 2c 20 67 53 | 6c 65 65 70 54 69 63 6b |vent, gS|leepTick|
|00000dd0| 73 2c 20 6e 69 6c 20 29 | 3b 0d 09 09 09 0d 09 09 |s, nil )|;.......|
|00000de0| 09 69 66 20 28 20 65 76 | 65 6e 74 52 65 73 75 6c |.if ( ev|entResul|
|00000df0| 74 20 29 0d 09 09 09 7b | 0d 09 09 09 09 2f 2a 20 |t )....{|...../* |
|00000e00| 69 66 20 74 68 65 72 65 | 20 69 73 20 61 6e 20 65 |if there| is an e|
|00000e10| 76 65 6e 74 20 6f 74 68 | 65 72 20 74 68 61 6e 20 |vent oth|er than |
|00000e20| 6e 75 6c 6c 20 2a 2f 0d | 09 09 09 09 2f 2a 20 63 |null */.|..../* c|
|00000e30| 6c 65 61 6e 20 75 70 20 | 74 68 65 20 6d 65 6e 75 |lean up |the menu|
|00000e40| 73 20 2a 2f 0d 2f 2f 09 | 09 09 09 61 64 6a 75 73 |s */.//.|...adjus|
|00000e50| 74 4d 65 6e 75 73 20 28 | 29 3b 0d 09 09 09 09 0d |tMenus (|);......|
|00000e60| 09 09 09 09 2f 2a 20 66 | 69 67 75 72 65 20 6f 75 |..../* f|igure ou|
|00000e70| 74 20 77 68 69 63 68 20 | 65 76 65 6e 74 20 61 6e |t which |event an|
|00000e80| 64 20 70 72 6f 63 65 73 | 73 20 69 74 20 2a 2f 0d |d proces|s it */.|
|00000e90| 09 09 09 09 73 77 69 74 | 63 68 20 28 20 65 76 65 |....swit|ch ( eve|
|00000ea0| 6e 74 2e 77 68 61 74 20 | 29 20 0d 09 09 09 09 7b |nt.what |) .....{|
|00000eb0| 0d 09 09 09 09 09 63 61 | 73 65 20 6b 48 69 67 68 |......ca|se kHigh|
|00000ec0| 4c 65 76 65 6c 45 76 65 | 6e 74 3a 0d 09 09 09 09 |LevelEve|nt:.....|
|00000ed0| 09 09 64 6f 48 69 67 68 | 4c 65 76 65 6c 45 76 65 |..doHigh|LevelEve|
|00000ee0| 6e 74 20 28 20 26 65 76 | 65 6e 74 20 29 3b 0d 09 |nt ( &ev|ent );..|
|00000ef0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00000f00| 09 0d 09 09 09 09 09 23 | 69 66 20 6b 43 6f 6d 70 |.......#|if kComp|
|00000f10| 69 6c 65 57 69 74 68 46 | 6f 72 65 67 72 6f 75 6e |ileWithF|oregroun|
|00000f20| 64 0d 09 09 09 09 09 0d | 09 09 09 09 09 63 61 73 |d.......|.....cas|
|00000f30| 65 20 6d 6f 75 73 65 44 | 6f 77 6e 3a 09 0d 09 09 |e mouseD|own:....|
|00000f40| 09 09 09 09 64 6f 4d 6f | 75 73 65 44 6f 77 6e 20 |....doMo|useDown |
|00000f50| 28 20 26 65 76 65 6e 74 | 20 29 3b 0d 09 09 09 09 |( &event| );.....|
|00000f60| 09 09 62 72 65 61 6b 3b | 0d 09 09 09 09 09 0d 09 |..break;|........|
|00000f70| 09 09 09 09 63 61 73 65 | 20 6d 6f 75 73 65 55 70 |....case| mouseUp|
|00000f80| 3a 0d 09 09 09 09 09 09 | 64 6f 4d 6f 75 73 65 55 |:.......|doMouseU|
|00000f90| 70 20 28 20 26 65 76 65 | 6e 74 20 29 3b 0d 09 09 |p ( &eve|nt );...|
|00000fa0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 09 |....brea|k;......|
|00000fb0| 0d 09 09 09 09 09 63 61 | 73 65 20 6b 65 79 44 6f |......ca|se keyDo|
|00000fc0| 77 6e 3a 0d 09 09 09 09 | 09 09 64 6f 4b 65 79 44 |wn:.....|..doKeyD|
|00000fd0| 6f 77 6e 20 28 20 26 65 | 76 65 6e 74 20 29 3b 0d |own ( &e|vent );.|
|00000fe0| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00000ff0| 09 09 0d 09 09 09 09 09 | 63 61 73 65 20 61 75 74 |........|case aut|
|00001000| 6f 4b 65 79 3a 0d 09 09 | 09 09 09 09 64 6f 41 75 |oKey:...|....doAu|
|00001010| 74 6f 4b 65 79 20 28 20 | 26 65 76 65 6e 74 20 29 |toKey ( |&event )|
|00001020| 3b 0d 09 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |;.......|break;..|
|00001030| 09 09 09 09 0d 09 09 09 | 09 09 2f 2a 20 74 79 70 |........|../* typ|
|00001040| 69 63 61 6c 6c 79 20 6e | 6f 74 20 73 65 6e 74 20 |ically n|ot sent |
|00001050| 74 6f 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |to the a|pplicati|
|00001060| 6f 6e 2e 20 49 4d 2d 4d | 54 45 3a 20 32 2d 32 38 |on. IM-M|TE: 2-28|
|00001070| 20 2a 2f 0d 09 09 09 09 | 09 63 61 73 65 20 6b 65 | */.....|.case ke|
|00001080| 79 55 70 3a 0d 09 09 09 | 09 09 09 64 6f 4b 65 79 |yUp:....|...doKey|
|00001090| 55 70 20 28 20 26 65 76 | 65 6e 74 20 29 3b 0d 09 |Up ( &ev|ent );..|
|000010a0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|000010b0| 09 0d 09 09 09 09 09 63 | 61 73 65 20 61 63 74 69 |.......c|ase acti|
|000010c0| 76 61 74 65 45 76 74 3a | 0d 09 09 09 09 09 09 64 |vateEvt:|.......d|
|000010d0| 6f 41 63 74 69 76 61 74 | 65 45 76 65 6e 74 20 28 |oActivat|eEvent (|
|000010e0| 20 26 65 76 65 6e 74 20 | 29 3b 0d 09 09 09 09 09 | &event |);......|
|000010f0| 09 62 72 65 61 6b 3b 0d | 09 09 0d 09 09 09 09 09 |.break;.|........|
|00001100| 63 61 73 65 20 75 70 64 | 61 74 65 45 76 74 3a 0d |case upd|ateEvt:.|
|00001110| 09 09 09 09 09 09 64 6f | 55 70 64 61 74 65 45 76 |......do|UpdateEv|
|00001120| 65 6e 74 20 28 20 26 65 | 76 65 6e 74 20 29 3b 0d |ent ( &e|vent );.|
|00001130| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001140| 09 09 0d 09 09 09 09 09 | 2f 2a 20 73 75 73 70 65 |........|/* suspe|
|00001150| 6e 64 20 6f 72 20 72 65 | 73 75 6d 65 20 2a 2f 0d |nd or re|sume */.|
|00001160| 09 09 09 09 09 63 61 73 | 65 20 6f 73 45 76 74 3a |.....cas|e osEvt:|
|00001170| 0d 09 09 09 09 09 09 64 | 6f 4f 73 45 76 74 20 28 |.......d|oOsEvt (|
|00001180| 20 26 65 76 65 6e 74 20 | 29 3b 0d 09 09 09 09 09 | &event |);......|
|00001190| 09 62 72 65 61 6b 3b 0d | 09 09 09 09 09 0d 09 09 |.break;.|........|
|000011a0| 09 09 09 2f 2a 20 64 69 | 73 6b 20 69 6e 73 65 72 |.../* di|sk inser|
|000011b0| 74 65 64 20 2a 2f 0d 09 | 09 09 09 09 63 61 73 65 |ted */..|....case|
|000011c0| 20 64 69 73 6b 45 76 74 | 3a 0d 09 09 09 09 09 09 | diskEvt|:.......|
|000011d0| 64 6f 44 69 73 6b 45 76 | 74 20 28 20 26 65 76 65 |doDiskEv|t ( &eve|
|000011e0| 6e 74 20 29 3b 0d 09 09 | 09 09 09 09 62 72 65 61 |nt );...|....brea|
|000011f0| 6b 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 09 23 65 |k;......|......#e|
|00001200| 6e 64 69 66 09 2f 2a 20 | 6b 43 6f 6d 70 69 6c 65 |ndif./* |kCompile|
|00001210| 57 69 74 68 46 6f 72 65 | 67 72 6f 75 6e 64 20 2a |WithFore|ground *|
|00001220| 2f 0d 09 09 09 09 09 0d | 09 09 09 09 09 64 65 66 |/.......|.....def|
|00001230| 61 75 6c 74 3a 0d 09 09 | 09 09 09 09 64 6f 49 64 |ault:...|....doId|
|00001240| 6c 65 20 28 20 26 65 76 | 65 6e 74 20 29 3b 0d 09 |le ( &ev|ent );..|
|00001250| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00001260| 7d 0d 09 09 09 7d 0d 09 | 09 09 65 6c 73 65 0d 09 |}....}..|..else..|
|00001270| 09 09 7b 0d 09 09 09 09 | 2f 2a 20 6e 6f 74 20 61 |..{.....|/* not a|
|00001280| 20 68 61 6e 64 6c 65 64 | 20 65 76 65 6e 74 2c 20 | handled| event, |
|00001290| 6f 72 20 65 76 65 6e 74 | 20 69 73 20 6e 75 6c 6c |or event| is null|
|000012a0| 20 2a 2f 0d 09 09 09 09 | 64 6f 49 64 6c 65 20 28 | */.....|doIdle (|
|000012b0| 20 26 65 76 65 6e 74 20 | 29 3b 0d 09 09 09 7d 0d | &event |);....}.|
|000012c0| 09 09 7d 0d 09 09 0d 09 | 09 69 66 20 28 20 67 51 |..}.....|.if ( gQ|
|000012d0| 75 69 74 20 29 0d 09 09 | 7b 0d 09 09 09 51 75 69 |uit )...|{....Qui|
|000012e0| 74 50 72 65 70 61 72 65 | 20 28 20 74 72 75 65 20 |tPrepare| ( true |
|000012f0| 29 3b 0d 09 09 7d 0d 09 | 7d 0d 7d 20 2f 2a 20 6d |);...}..|}.} /* m|
|00001300| 61 69 6e 45 76 65 6e 74 | 4c 6f 6f 70 20 2a 2f 0d |ainEvent|Loop */.|
|00001310| 0d 0d 2f 2a 2a 2a 20 20 | 49 4e 49 54 49 41 4c 49 |../***  |INITIALI|
|00001320| 5a 41 54 49 4f 4e 20 20 | 2a 2a 2a 2f 0d 23 70 72 |ZATION  |***/.#pr|
|00001330| 61 67 6d 61 20 6d 61 72 | 6b 20 2d 0d 0d 2f 2a 20 |agma mar|k -../* |
|00001340| 69 6e 69 74 69 61 6c 69 | 7a 65 20 73 74 61 6e 64 |initiali|ze stand|
|00001350| 61 72 64 20 74 6f 6f 6c | 62 6f 78 20 6d 61 6e 61 |ard tool|box mana|
|00001360| 67 65 72 73 20 2a 2f 0d | 73 74 61 74 69 63 20 76 |gers */.|static v|
|00001370| 6f 69 64 0d 73 74 61 72 | 74 75 70 54 6f 6f 6c 62 |oid.star|tupToolb|
|00001380| 6f 78 20 28 20 76 6f 69 | 64 20 29 0d 7b 0d 09 49 |ox ( voi|d ).{..I|
|00001390| 6e 69 74 47 72 61 66 09 | 28 20 28 50 74 72 29 28 |nitGraf.|( (Ptr)(|
|000013a0| 26 71 64 2e 74 68 65 50 | 6f 72 74 29 20 29 3b 09 |&qd.theP|ort) );.|
|000013b0| 2f 2a 20 49 6e 69 74 47 | 72 61 66 20 6d 75 73 74 |/* InitG|raf must|
|000013c0| 20 62 65 20 66 69 72 73 | 74 20 2a 2f 0d 09 0d 09 | be firs|t */....|
|000013d0| 23 69 66 20 6b 43 6f 6d | 70 69 6c 65 57 69 74 68 |#if kCom|pileWith|
|000013e0| 46 6f 72 65 67 72 6f 75 | 6e 64 0d 09 2f 2a 20 69 |Foregrou|nd../* i|
|000013f0| 6e 69 74 69 61 6c 69 7a | 65 20 69 6e 74 65 72 66 |nitializ|e interf|
|00001400| 61 63 65 20 6d 61 6e 61 | 67 65 72 73 20 2a 2f 0d |ace mana|gers */.|
|00001410| 09 0d 09 49 6e 69 74 46 | 6f 6e 74 73 09 28 29 3b |...InitF|onts.();|
|00001420| 0d 09 49 6e 69 74 57 69 | 6e 64 6f 77 73 09 28 29 |..InitWi|ndows.()|
|00001430| 3b 0d 09 49 6e 69 74 4d | 65 6e 75 73 09 28 29 3b |;..InitM|enus.();|
|00001440| 09 09 09 09 09 09 2f 2a | 20 49 6e 69 74 4d 65 6e |....../*| InitMen|
|00001450| 75 73 20 6d 75 73 74 20 | 62 65 20 61 66 74 65 72 |us must |be after|
|00001460| 20 49 6e 69 74 57 69 6e | 64 6f 77 73 20 2a 2f 0d | InitWin|dows */.|
|00001470| 09 46 6c 75 73 68 45 76 | 65 6e 74 73 09 28 20 65 |.FlushEv|ents.( e|
|00001480| 76 65 72 79 45 76 65 6e | 74 2c 20 6e 69 6c 20 29 |veryEven|t, nil )|
|00001490| 3b 09 2f 2a 20 49 4d 2d | 4d 54 45 3a 20 32 2d 39 |;./* IM-|MTE: 2-9|
|000014a0| 33 20 2a 2f 0d 09 54 45 | 49 6e 69 74 09 09 28 29 |3 */..TE|Init..()|
|000014b0| 3b 0d 09 49 6e 69 74 44 | 69 61 6c 6f 67 73 09 28 |;..InitD|ialogs.(|
|000014c0| 20 6e 69 6c 20 29 3b 09 | 09 09 09 2f 2a 20 49 6e | nil );.|.../* In|
|000014d0| 69 74 44 69 61 6c 6f 67 | 73 20 6d 75 73 74 20 62 |itDialog|s must b|
|000014e0| 65 20 61 66 74 65 72 20 | 54 45 49 6e 69 74 20 2a |e after |TEInit *|
|000014f0| 2f 0d 09 49 6e 69 74 43 | 75 72 73 6f 72 09 28 29 |/..InitC|ursor.()|
|00001500| 3b 0d 09 0d 09 23 65 6e | 64 69 66 0d 7d 20 2f 2a |;....#en|dif.} /*|
|00001510| 20 73 74 61 72 74 75 70 | 54 6f 6f 6c 62 6f 78 20 | startup|Toolbox |
|00001520| 2a 2f 0d 0d 0d 2f 2a 20 | 52 65 74 75 72 6e 20 74 |*/.../* |Return t|
|00001530| 72 75 65 20 69 66 20 6d | 65 6d 6f 72 79 20 69 6e |rue if m|emory in|
|00001540| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 20 77 61 73 |itializa|tion was|
|00001550| 20 73 75 63 63 65 73 73 | 66 75 6c 2e 20 2a 2f 0d | success|ful. */.|
|00001560| 73 74 61 74 69 63 20 42 | 6f 6f 6c 65 61 6e 0d 69 |static B|oolean.i|
|00001570| 6e 69 74 41 70 70 4d 65 | 6d 6f 72 79 20 28 20 76 |nitAppMe|mory ( v|
|00001580| 6f 69 64 20 29 0d 7b 0d | 09 73 68 6f 72 74 20 09 |oid ).{.|.short .|
|00001590| 09 6d 73 74 72 50 74 72 | 73 41 6c 6c 6f 63 61 74 |.mstrPtr|sAllocat|
|000015a0| 65 64 3b 0d 09 6c 6f 6e | 67 20 09 09 66 72 65 65 |ed;..lon|g ..free|
|000015b0| 4d 65 6d 41 76 61 69 6c | 3b 0d 09 42 6f 6f 6c 65 |MemAvail|;..Boole|
|000015c0| 61 6e 09 09 73 75 63 63 | 65 73 73 3b 0d 09 48 61 |an..succ|ess;..Ha|
|000015d0| 6e 64 6c 65 09 09 73 61 | 63 72 69 66 69 63 65 48 |ndle..sa|crificeH|
|000015e0| 61 6e 64 6c 65 3b 0d 09 | 0d 09 23 69 66 20 21 28 |andle;..|..#if !(|
|000015f0| 6b 43 6f 6d 70 69 6c 65 | 57 69 74 68 46 6f 72 65 |kCompile|WithFore|
|00001600| 67 72 6f 75 6e 64 29 0d | 09 2f 2a 20 42 61 63 6b |ground).|./* Back|
|00001610| 67 72 6f 75 6e 64 20 6f | 6e 6c 79 20 61 70 70 73 |ground o|nly apps|
|00001620| 20 67 65 74 20 61 20 64 | 65 66 61 75 6c 74 20 38 | get a d|efault 8|
|00001630| 4b 20 73 74 61 63 6b 20 | 69 6e 73 74 65 61 64 20 |K stack |instead |
|00001640| 6f 66 20 32 34 4b 2e 0d | 09 09 49 6e 63 72 65 61 |of 24K..|..Increa|
|00001650| 73 65 20 73 74 61 63 6b | 20 73 69 7a 65 20 69 66 |se stack| size if|
|00001660| 20 73 65 74 20 74 6f 20 | 62 61 63 6b 67 72 6f 75 | set to |backgrou|
|00001670| 6e 64 20 6f 6e 6c 79 20 | 2d 20 6a 75 73 74 20 74 |nd only |- just t|
|00001680| 6f 20 62 65 20 6f 6e 20 | 74 68 65 20 73 61 66 65 |o be on |the safe|
|00001690| 20 73 69 64 65 20 2a 2f | 0d 09 73 75 63 63 65 73 | side */|..succes|
|000016a0| 73 20 3d 20 28 20 69 6e | 69 74 53 74 61 63 6b 47 |s = ( in|itStackG|
|000016b0| 72 6f 77 28 31 36 33 38 | 34 29 20 3d 3d 20 6e 6f |row(1638|4) == no|
|000016c0| 45 72 72 20 29 3b 0d 09 | 23 65 6e 64 69 66 0d 09 |Err );..|#endif..|
|000016d0| 0d 09 2f 2a 20 4e 4f 54 | 45 3a 20 4d 61 78 41 70 |../* NOT|E: MaxAp|
|000016e0| 70 6c 5a 6f 6e 65 20 6d | 75 73 74 20 62 65 20 63 |plZone m|ust be c|
|000016f0| 61 6c 6c 65 64 20 62 65 | 66 6f 72 65 20 61 6e 79 |alled be|fore any|
|00001700| 20 6d 65 6d 6f 72 79 20 | 69 73 20 61 6c 6c 6f 63 | memory |is alloc|
|00001710| 61 74 65 64 20 62 79 20 | 74 68 72 65 61 64 73 0d |ated by |threads.|
|00001720| 09 09 6f 74 68 65 72 20 | 74 68 61 6e 20 74 68 65 |..other |than the|
|00001730| 20 6d 61 69 6e 20 28 61 | 70 70 6c 69 63 61 74 69 | main (a|pplicati|
|00001740| 6f 6e 29 20 74 68 72 65 | 61 64 2e 20 2a 2f 0d 09 |on) thre|ad. */..|
|00001750| 2f 2a 20 6d 61 78 69 6d | 69 7a 65 20 61 76 61 69 |/* maxim|ize avai|
|00001760| 6c 61 62 6c 65 20 6d 65 | 6d 6f 72 79 20 69 6e 20 |lable me|mory in |
|00001770| 74 68 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |the appl|ication |
|00001780| 68 65 61 70 20 2a 2f 0d | 09 4d 61 78 41 70 70 6c |heap */.|.MaxAppl|
|00001790| 5a 6f 6e 65 20 28 29 3b | 0d 09 0d 09 66 72 65 65 |Zone ();|....free|
|000017a0| 4d 65 6d 41 76 61 69 6c | 20 3d 20 46 72 65 65 4d |MemAvail| = FreeM|
|000017b0| 65 6d 20 28 29 3b 0d 09 | 0d 09 69 66 20 28 20 66 |em ();..|..if ( f|
|000017c0| 72 65 65 4d 65 6d 41 76 | 61 69 6c 20 3c 20 6b 4d |reeMemAv|ail < kM|
|000017d0| 69 6e 53 65 67 53 69 7a | 65 20 29 0d 09 7b 0d 09 |inSegSiz|e )..{..|
|000017e0| 09 2f 2a 20 6e 6f 74 20 | 65 6e 6f 75 67 68 20 6d |./* not |enough m|
|000017f0| 65 6d 6f 72 79 20 66 6f | 72 20 61 70 70 6c 69 63 |emory fo|r applic|
|00001800| 61 74 69 6f 6e 20 74 6f | 20 72 75 6e 20 2a 2f 0d |ation to| run */.|
|00001810| 09 09 73 75 63 63 65 73 | 73 20 3d 20 66 61 6c 73 |..succes|s = fals|
|00001820| 65 3b 0d 09 7d 0d 09 65 | 6c 73 65 0d 09 7b 0d 09 |e;..}..e|lse..{..|
|00001830| 09 2f 2a 20 74 6f 20 61 | 76 6f 69 64 20 6d 65 6d |./* to a|void mem|
|00001840| 6f 72 79 20 66 72 61 67 | 6d 65 6e 74 61 74 69 6f |ory frag|mentatio|
|00001850| 6e 2c 20 61 6c 6c 6f 63 | 61 74 65 20 6d 61 73 74 |n, alloc|ate mast|
|00001860| 65 72 20 70 6f 69 6e 74 | 65 72 73 20 61 74 20 62 |er point|ers at b|
|00001870| 6f 74 74 6f 6d 20 6f 66 | 20 68 65 61 70 20 2a 2f |ottom of| heap */|
|00001880| 0d 09 09 66 6f 72 20 28 | 20 6d 73 74 72 50 74 72 |...for (| mstrPtr|
|00001890| 73 41 6c 6c 6f 63 61 74 | 65 64 20 3d 20 30 3b 20 |sAllocat|ed = 0; |
|000018a0| 6d 73 74 72 50 74 72 73 | 41 6c 6c 6f 63 61 74 65 |mstrPtrs|Allocate|
|000018b0| 64 20 3c 20 6b 4d 6f 72 | 65 4d 61 73 74 65 72 43 |d < kMor|eMasterC|
|000018c0| 61 6c 6c 73 3b 20 6d 73 | 74 72 50 74 72 73 41 6c |alls; ms|trPtrsAl|
|000018d0| 6c 6f 63 61 74 65 64 2b | 2b 20 29 0d 09 09 7b 0d |located+|+ )...{.|
|000018e0| 09 09 09 4d 6f 72 65 4d | 61 73 74 65 72 73 20 28 |...MoreM|asters (|
|000018f0| 29 3b 0d 09 09 7d 0d 09 | 09 0d 09 09 73 75 63 63 |);...}..|....succ|
|00001900| 65 73 73 20 3d 20 49 6e | 69 74 69 61 6c 69 7a 65 |ess = In|itialize|
|00001910| 45 6d 65 72 67 65 6e 63 | 79 4d 65 6d 6f 72 79 20 |Emergenc|yMemory |
|00001920| 28 20 6e 69 6c 20 29 3b | 0d 09 7d 0d 09 0d 09 2f |( nil );|..}..../|
|00001930| 2a 20 41 6c 6c 6f 63 61 | 74 65 20 61 20 31 4b 20 |* Alloca|te a 1K |
|00001940| 6d 65 6d 6f 72 79 20 62 | 6c 6f 63 6b 2c 20 66 6f |memory b|lock, fo|
|00001950| 72 63 65 20 69 74 20 74 | 6f 20 74 68 65 20 74 6f |rce it t|o the to|
|00001960| 70 20 6f 66 20 74 68 65 | 20 68 65 61 70 2c 20 61 |p of the| heap, a|
|00001970| 6e 64 20 6c 6f 63 6b 20 | 69 74 2e 0d 09 20 20 20 |nd lock |it...   |
|00001980| 54 68 69 73 20 62 6c 6f | 63 6b 20 69 73 20 6e 6f |This blo|ck is no|
|00001990| 74 20 75 73 65 64 20 66 | 6f 72 20 61 6e 79 74 68 |t used f|or anyth|
|000019a0| 69 6e 67 20 2d 20 69 74 | 20 69 73 20 70 75 74 20 |ing - it| is put |
|000019b0| 61 74 20 74 68 65 20 74 | 6f 70 20 6f 66 20 74 68 |at the t|op of th|
|000019c0| 65 20 68 65 61 70 0d 09 | 20 20 20 61 73 20 61 20 |e heap..|   as a |
|000019d0| 73 61 63 72 69 66 69 63 | 65 20 62 65 63 61 75 73 |sacrific|e becaus|
|000019e0| 65 20 73 6f 6d 65 74 69 | 6d 65 73 20 4d 61 63 53 |e someti|mes MacS|
|000019f0| 4c 49 50 27 73 20 56 42 | 4c 20 74 61 73 6b 20 74 |LIP's VB|L task t|
|00001a00| 72 61 73 68 65 73 20 74 | 68 65 20 65 6e 64 20 6f |rashes t|he end o|
|00001a10| 66 20 0d 09 20 20 20 74 | 68 65 20 68 65 61 70 2e |f ..   t|he heap.|
|00001a20| 0d 09 20 20 20 66 72 6f | 6d 20 22 4e 65 77 73 57 |..   fro|m "NewsW|
|00001a30| 61 74 63 68 65 72 22 20 | 27 6e 65 77 73 77 61 74 |atcher" |'newswat|
|00001a40| 63 68 65 72 2e 63 27 20 | 2a 2f 0d 09 73 61 63 72 |cher.c' |*/..sacr|
|00001a50| 69 66 69 63 65 48 61 6e | 64 6c 65 20 3d 20 4d 79 |ificeHan|dle = My|
|00001a60| 4e 65 77 48 61 6e 64 6c | 65 20 28 20 31 30 32 34 |NewHandl|e ( 1024|
|00001a70| 2c 20 6e 69 6c 20 29 3b | 0d 09 69 66 20 28 20 73 |, nil );|..if ( s|
|00001a80| 61 63 72 69 66 69 63 65 | 48 61 6e 64 6c 65 20 21 |acrifice|Handle !|
|00001a90| 3d 20 6e 69 6c 20 29 0d | 09 7b 0d 09 09 48 4c 6f |= nil ).|.{...HLo|
|00001aa0| 63 6b 48 69 20 28 20 73 | 61 63 72 69 66 69 63 65 |ckHi ( s|acrifice|
|00001ab0| 48 61 6e 64 6c 65 20 29 | 3b 0d 09 7d 0d 09 0d 09 |Handle )|;..}....|
|00001ac0| 72 65 74 75 72 6e 20 73 | 75 63 63 65 73 73 3b 0d |return s|uccess;.|
|00001ad0| 7d 20 2f 2a 20 69 6e 69 | 74 41 70 70 4d 65 6d 6f |} /* ini|tAppMemo|
|00001ae0| 72 79 20 2a 2f 0d 0d 0d | 2f 2a 20 20 2a 2f 0d 73 |ry */...|/*  */.s|
|00001af0| 74 61 74 69 63 20 4f 53 | 45 72 72 0d 69 6e 69 74 |tatic OS|Err.init|
|00001b00| 53 74 61 63 6b 47 72 6f | 77 20 28 20 53 69 7a 65 |StackGro|w ( Size|
|00001b10| 20 69 6e 63 72 65 61 73 | 65 53 69 7a 65 20 29 0d | increas|eSize ).|
|00001b20| 7b 0d 09 4f 53 45 72 72 | 20 74 68 65 45 72 72 3b |{..OSErr| theErr;|
|00001b30| 0d 09 0d 09 6d 79 5f 61 | 73 73 65 72 74 20 28 20 |....my_a|ssert ( |
|00001b40| 28 69 6e 63 72 65 61 73 | 65 53 69 7a 65 20 25 20 |(increas|eSize % |
|00001b50| 31 30 32 34 29 20 3d 3d | 20 6e 69 6c 2c 20 22 5c |1024) ==| nil, "\|
|00001b60| 70 69 6e 69 74 53 74 61 | 63 6b 47 72 6f 77 3a 20 |pinitSta|ckGrow: |
|00001b70| 73 69 7a 65 20 69 73 20 | 6e 6f 74 20 6d 75 6c 74 |size is |not mult|
|00001b80| 69 70 6c 65 20 6f 66 20 | 31 30 32 34 22 20 29 3b |iple of |1024" );|
|00001b90| 0d 09 0d 09 2f 2a 20 49 | 6e 63 72 65 61 73 65 20 |..../* I|ncrease |
|00001ba0| 74 68 65 20 73 74 61 63 | 6b 20 73 69 7a 65 20 62 |the stac|k size b|
|00001bb0| 79 20 6c 6f 77 65 72 69 | 6e 67 20 74 68 65 20 68 |y loweri|ng the h|
|00001bc0| 65 61 70 20 6c 69 6d 69 | 74 2e 20 2a 2f 0d 09 53 |eap limi|t. */..S|
|00001bd0| 65 74 41 70 70 6c 4c 69 | 6d 69 74 20 28 20 28 50 |etApplLi|mit ( (P|
|00001be0| 74 72 29 28 28 28 75 6e | 73 69 67 6e 65 64 20 6c |tr)(((un|signed l|
|00001bf0| 6f 6e 67 29 47 65 74 41 | 70 70 6c 4c 69 6d 69 74 |ong)GetA|pplLimit|
|00001c00| 28 29 29 20 2d 20 69 6e | 63 72 65 61 73 65 53 69 |()) - in|creaseSi|
|00001c10| 7a 65 29 20 29 3b 0d 09 | 74 68 65 45 72 72 20 3d |ze) );..|theErr =|
|00001c20| 20 4d 65 6d 45 72 72 6f | 72 20 28 29 3b 0d 09 0d | MemErro|r ();...|
|00001c30| 09 72 65 74 75 72 6e 20 | 74 68 65 45 72 72 3b 0d |.return |theErr;.|
|00001c40| 7d 20 2f 2a 20 69 6e 69 | 74 53 74 61 63 6b 47 72 |} /* ini|tStackGr|
|00001c50| 6f 77 20 2a 2f 0d 0d 0d | 2f 2a 2a 2a 20 45 4f 46 |ow */...|/*** EOF|
|00001c60| 20 2a 2a 2a 2f 0d 00 00 | 00 00 00 00 00 00 00 00 | ***/...|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 01 00 00 00 01 78 | 00 00 00 78 00 00 00 5a |.......x|...x...Z|
|00001c90| 61 f0 78 66 61 65 78 f0 | 61 f0 7b 66 61 70 66 f0 |a.xfaex.|a.{fapf.|
|00001ca0| 61 f0 7a 66 61 70 6e f0 | 61 f0 79 66 61 73 74 f0 |a.zfapn.|a.yfast.|
|00001cb0| 06 6d 61 69 6e 2e 63 b4 | 02 00 00 00 54 45 58 54 |.main.c.|....TEXT|
|00001cc0| 43 57 49 45 00 04 00 00 | 00 00 00 00 00 00 64 d9 |CWIE....|......d.|
|00001cd0| 00 00 54 45 58 54 43 57 | 49 45 00 04 00 00 00 00 |..TEXTCW|IE......|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 a4 ed 99 b5 00 00 | 00 00 00 00 01 d2 00 00 |........|........|
|00001d00| 00 00 00 00 00 00 58 41 | 50 50 4c f0 64 f0 64 64 |......XA|PPL.d.dd|
|00001d10| 66 69 6c f0 69 f0 69 65 | 64 74 74 f0 6b f0 6b 65 |fil.i.ie|dtt.k.ke|
|00001d20| 64 74 70 f0 6b f0 6b 65 | 64 74 73 f0 6b f0 6b 65 |dtp.k.ke|dts.k.ke|
|00001d30| 64 74 74 f0 6b f0 6b 65 | 64 74 75 f0 6b f0 6b 65 |dtt.k.ke|dtu.k.ke|
|00001d40| 64 74 54 f0 6b f0 6b 65 | 64 74 50 f0 6b f0 6b 70 |dtT.k.ke|dtP.k.kp|
|00001d50| 75 62 6c f0 6b f0 6b 00 | 00 00 00 00 00 00 00 00 |ubl.k.k.|........|
|00001d60| 00 00 72 00 02 00 00 00 | 00 00 00 00 00 00 00 00 |..r.....|........|
|00001d70| 03 00 04 01 00 00 20 00 | 03 00 00 00 00 00 00 00 |...... .|........|
|00001d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 03 | 00 04 00 57 00 05 01 b4 |........|...W....|
|00001db0| 02 19 00 57 00 05 01 b4 | 02 19 ad 2d d0 c9 00 00 |...W....|...-....|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 00 04 |........|........|
|00001dd0| 00 01 00 01 00 00 00 20 | 00 01 00 1e 00 00 0d 15 |....... |........|
|00001de0| 00 9a 00 ad 60 34 00 00 | 0f 67 54 69 6d 65 4c 61 |....`4..|.gTimeLa|
|00001df0| 73 74 41 63 74 69 6f 6e | 00 00 01 00 00 00 01 78 |stAction|.......x|
|00001e00| 00 00 00 78 00 00 00 5a | 00 d2 79 20 1a 14 00 00 |...x...Z|..y ....|
|00001e10| 00 1c 00 5a 00 02 4d 50 | 53 52 00 00 00 1a 4d 57 |...Z..MP|SR....MW|
|00001e20| 42 42 00 00 00 26 44 54 | 56 55 00 00 00 32 03 ed |BB...&DT|VU...2..|
|00001e30| ff ff 00 00 00 00 00 00 | 00 00 03 f0 ff ff 00 00 |........|........|
|00001e40| 00 4c 00 00 00 00 55 af | ff ff 00 00 00 54 00 00 |.L....U.|.....T..|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+